home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / Library Stack v.1.0.cpt / Library Stack v.1.0 / background_2579.txt < prev    next >
Text File  |  1990-12-13  |  11KB  |  518 lines
  1. -- background: 2579 from stack: in.0
  2. -- bmap block id: 3242
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 51 (field)
  9. -- low flags: 81
  10. -- high flags: 0000
  11. -- rect: left=24 top=295 right=312 bottom=124
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: map coords
  20.  
  21.  
  22. -- part 72 (field)
  23. -- low flags: 00
  24. -- high flags: 0004
  25. -- rect: left=8 top=71 right=91 bottom=136
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Search For
  34.  
  35.  
  36. -- part 77 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=102 top=94 right=112 bottom=256
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Volume
  48.  
  49.  
  50. -- part 75 (field)
  51. -- low flags: 00
  52. -- high flags: 0007
  53. -- rect: left=255 top=131 right=196 bottom=327
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Size
  62.  
  63.  
  64. -- part 73 (field)
  65. -- low flags: 00
  66. -- high flags: 0007
  67. -- rect: left=8 top=131 right=196 bottom=184
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: File Name
  76.  
  77.  
  78. -- part 74 (field)
  79. -- low flags: 00
  80. -- high flags: 0007
  81. -- rect: left=186 top=131 right=196 bottom=253
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: File Type
  90.  
  91.  
  92. -- part 78 (field)
  93. -- low flags: 00
  94. -- high flags: 0007
  95. -- rect: left=329 top=131 right=196 bottom=501
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Key Words
  104.  
  105.  
  106. -- part 79 (field)
  107. -- low flags: 00
  108. -- high flags: 4007
  109. -- rect: left=8 top=214 right=317 bottom=501
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Description
  118.  
  119.  
  120. -- part 94 (button)
  121. -- low flags: 80
  122. -- high flags: 8001
  123. -- rect: left=9 top=47 right=317 bottom=500
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: You did not tell me what
  132.  
  133.  
  134. -- part 95 (button)
  135. -- low flags: 80
  136. -- high flags: 8001
  137. -- rect: left=203 top=186 right=204 bottom=299
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: to search for!
  146.  
  147.  
  148. -- part 103 (field)
  149. -- low flags: 81
  150. -- high flags: 0001
  151. -- rect: left=9 top=47 right=316 bottom=500
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Please Wait
  160.  
  161.  
  162. -- part 104 (field)
  163. -- low flags: 81
  164. -- high flags: 0001
  165. -- rect: left=9 top=47 right=316 bottom=500
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Search Empty
  174.  
  175.  
  176. -- part 105 (button)
  177. -- low flags: 00
  178. -- high flags: A000
  179. -- rect: left=136 top=47 right=91 bottom=175
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 20186 / 20186
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: Sort
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   answer "Sort all cards of this stack according to:" with "Cancel" or "Continue" or "File Name"
  191.   if it is "File Name"
  192.   then sort by first word of first line of field "File Name"
  193. else if it is "Continue"
  194. then answer "Sort all cards of this stack according to:" with "Cancel" or "Continue" or "Volume"
  195. if it is "Volume"
  196. then sort by first word of first line of field "Volume"
  197. else if it is "Continue"
  198. then answer "Sort all cards of this stack according to:" with "Cancel" or "File Type"
  199. if it is "File Type"
  200. then sort by first word of first line of field "File Type"
  201. else if it is "Cancel"
  202. then exit mouseUp
  203. else if it is "Cancel"
  204. then exit mouseUp
  205. else if it is "Cancel"
  206. then exit mouseUp
  207. end mouseUp
  208.  
  209.  
  210. -- part 106 (button)
  211. -- low flags: 00
  212. -- high flags: A000
  213. -- rect: left=175 top=48 right=91 bottom=222
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 8538 / 8538
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: File Name
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   if background field "search for" is empty
  225.   then
  226.   push card
  227.   go to card "search empty"
  228.   wait three seconds
  229.   pop card
  230.   exit mouseUp
  231. end if
  232. put field "search for" into it
  233. doMenu next
  234. find it in field "file name"
  235. if it is not in field "file name"
  236. then
  237. doMenu prev
  238. answer "Not Found"
  239. else
  240.   put it into field "search for"
  241. end if
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 107 (button)
  247. -- low flags: 00
  248. -- high flags: A000
  249. -- rect: left=223 top=47 right=92 bottom=274
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 8538 / 8538
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Key Words
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   if background field "search for" is empty
  261.   then
  262.   push card
  263.   go to card "search empty"
  264.   wait three seconds
  265.   pop card
  266.   exit mouseUp
  267. end if
  268. put field "search for" into it
  269. doMenu next
  270. find it in field "key words"
  271. if it is not in field "key words"
  272. then
  273. doMenu prev
  274. answer "Not Found"
  275. else
  276.   put it into field "search for"
  277. end if
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 110 (button)
  283. -- low flags: 00
  284. -- high flags: A000
  285. -- rect: left=369 top=45 right=93 bottom=414
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 8538 / 8538
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: File Type
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   if background field "search for" is empty
  297.   then
  298.   push card
  299.   go to card "search empty"
  300.   wait three seconds
  301.   pop card
  302.   exit mouseUp
  303. end if
  304. put field "search for" into it
  305. doMenu next
  306. find it in field "file type"
  307. if it is not in field "file type"
  308. then
  309. doMenu prev
  310. answer "Not Found"
  311. else
  312.   put it into field "search for"
  313. end if
  314. end mouseUp
  315.  
  316.  
  317.  
  318. -- part 111 (button)
  319. -- low flags: 00
  320. -- high flags: A000
  321. -- rect: left=415 top=47 right=92 bottom=459
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 1009 / 1009
  324. -- text alignment: 1
  325. -- font id: 0
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Read Disk
  330. ----- HyperTalk script -----
  331. on mouseUp
  332.   domenu "new card"
  333.   put ReadCat(2,1,0,0,1,1,0,0,1) into new
  334.   push card
  335.   go to card "please wait"
  336.   lock screen
  337.   pop card
  338.   select line 1 of field "volume"
  339.   put the selection into volumeVar
  340.   repeat with n = 1 to number of lines in field "file name"
  341.     select line n of field "file name"
  342.     put the selection into nameVar
  343.     select line n of field "file type"
  344.     put the selection into typeVar
  345.     select line n of field "size"
  346.     put the selection into sizeVar
  347.     domenu "new card"
  348.     put volumeVar into field "volume"
  349.     put nameVar into field "file name"
  350.     put typeVar into field "file type"
  351.     put sizeVar into field "size"
  352.     domenu prev
  353.   end repeat
  354.   domenu "delete card"
  355.   unlock screen
  356. end mouseUp
  357.  
  358.  
  359.  
  360. -- part 112 (button)
  361. -- low flags: 00
  362. -- high flags: 0000
  363. -- rect: left=214 top=320 right=340 bottom=240
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 1014 / 1014
  366. -- text alignment: 1
  367. -- font id: 0
  368. -- text size: 12
  369. -- style flags: 0
  370. -- line height: 16
  371. -- part name: Prev
  372. ----- HyperTalk script -----
  373. on mouseUp
  374.   put empty into background field "search for"
  375.   go to prev card
  376. end mouseUp
  377.  
  378.  
  379.  
  380. -- part 113 (button)
  381. -- low flags: 00
  382. -- high flags: A003
  383. -- rect: left=239 top=320 right=342 bottom=287
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: Home
  392. ----- HyperTalk script -----
  393. on mouseUp
  394.   go to card id 5341 of stack "Home"
  395. end mouseUp
  396.  
  397.  
  398.  
  399.  
  400. -- part 114 (button)
  401. -- low flags: 00
  402. -- high flags: 0000
  403. -- rect: left=287 top=321 right=340 bottom=308
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 1013 / 1013
  406. -- text alignment: 1
  407. -- font id: 0
  408. -- text size: 12
  409. -- style flags: 0
  410. -- line height: 16
  411. -- part name: Next
  412. ----- HyperTalk script -----
  413. on mouseUp
  414.   put empty into background field "search for"
  415.   go to next card
  416. end mouseUp
  417.  
  418.  
  419.  
  420. -- part 115 (field)
  421. -- low flags: 81
  422. -- high flags: 0001
  423. -- rect: left=9 top=48 right=316 bottom=500
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 0
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: Search Disk
  432.  
  433.  
  434. -- part 116 (button)
  435. -- low flags: 00
  436. -- high flags: A000
  437. -- rect: left=275 top=46 right=93 bottom=329
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 8538 / 8538
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: Description
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   if background field "search for" is empty
  449.   then
  450.   push card
  451.   go to card "search empty"
  452.   wait three seconds
  453.   pop card
  454.   exit mouseUp
  455. end if
  456. put field "search for" into it
  457. doMenu next
  458. find it in field "description"
  459. if it is not in field "description"
  460. then
  461. doMenu prev
  462. answer "Not Found"
  463. else
  464.   put it into field "search for"
  465. end if
  466. end mouseUp
  467.  
  468.  
  469.  
  470. -- part 117 (button)
  471. -- low flags: 00
  472. -- high flags: A000
  473. -- rect: left=329 top=46 right=92 bottom=368
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 8538 / 8538
  476. -- text alignment: 1
  477. -- font id: 0
  478. -- text size: 12
  479. -- style flags: 0
  480. -- line height: 16
  481. -- part name: Volume
  482. ----- HyperTalk script -----
  483. on mouseUp
  484.   if background field "search for" is empty
  485.   then
  486.   push card
  487.   go to card "search empty"
  488.   wait three seconds
  489.   pop card
  490.   exit mouseUp
  491. end if
  492. put field "search for" into it
  493. doMenu next
  494. find it in field "volume"
  495. if it is not in field "volume"
  496. then
  497. doMenu prev
  498. answer "Not Found"
  499. else
  500.   put it into field "search for"
  501. end if
  502. end mouseUp
  503.  
  504.  
  505.  
  506. -- part 119 (field)
  507. -- low flags: 00
  508. -- high flags: 2007
  509. -- rect: left=8 top=91 right=317 bottom=501
  510. -- title width / last selected line: 0
  511. -- icon id / first selected line: 0 / 0
  512. -- text alignment: 0
  513. -- font id: 4
  514. -- text size: 12
  515. -- style flags: 0
  516. -- line height: 16
  517. -- part name: About
  518.